home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 42 / Mac Magazin and MacEasy Magazine CD - Issue 42.iso / Software / Mobiles Büro / Newton / Accordian 1.0b / ADF Folder / smalquiz.adf < prev   
Text File  |  1997-10-15  |  3KB  |  78 lines
  1. // Definition of the Small Quiz program
  2. // By: Catamount Software
  3. // <http://www.catamount.com> 
  4. // May 4, 1997
  5. //
  6.  
  7. application "Small Quiz:VtHick" called "Small Quiz" with options { "nofolders" }
  8. soup "SmallQuiz:VtHick" called "Survey Results" of "Small Quiz:VtHick"
  9.  
  10. overview "results" called "Survey Results" of "SmallQuiz:VtHick" queries "_uniqueID" contains
  11.     {
  12.     column "LName" width 50 is lastName
  13.     column "FName" width 50 is firstName
  14.     column "Phone" width 50 is phone
  15.     column "City"  width 50 is city
  16.     column "Info"  width 10 is info
  17.     column "Join"  width 10 is join
  18.     column "Newsletter" width 10 is newsletter
  19.     column "Misc"  width 10 is misc    
  20.     }
  21.  
  22. //class: '|SmallQuiz:VtHick|,
  23. //class "company" called "Company" of { "cardfile" "Names" } contains
  24. class "SmallQuiz:VtHick" called "Results" of "SmallQuiz:VtHick" contains
  25.     {
  26.     firstName: string called "First"
  27.     lastName: string called "Last"
  28.     military: integer called "Q) Military Draft"
  29.     radio:integer called "Q) Radio"
  30.     sex:integer called "Q) Sex"
  31.     drugs:integer called "Q) Drugs"
  32.     immigration:integer called "Q) Immigration"
  33.     farmers:integer called "Q) Farmers"
  34.     freetrade:integer called "Q) FreeTrade"
  35.     minimumWage:integer called "Q) MiniumWage"
  36.     endTaxes:integer called "Q) End Taxes"
  37.     defense:integer called "Q) Japan & Europe Defense"
  38.     address1:string called "Address1"
  39.     address2:string called "Address2"
  40.     city:string called "City"
  41.     state:string called "State"
  42.     zip:string called "Zip"
  43.     phone:string called "Phone"
  44.     email:string called "Email" class "mailClasses"
  45.     info:boolean called "Send Info"
  46.     join:boolean called "Join Party"
  47.     newsletter:boolean called "Newsletter"
  48.     misc:boolean called "Misc"
  49.     emailList:boolean called "Email List"
  50.     whatSex:string called "Sex"
  51.     whatAge:string called "Age"
  52.     whatIncome:string called "Income"
  53.     ownBusiness:string called "Employment Status"
  54.     whatOccupation:string called "Occupation"
  55.     whatNewspaper:string called "Newspaper"
  56.     whatTV:string called "TV"
  57.     whatRadio:string called "Radio"
  58.     voteStatus:string called "Voting Status"
  59.     familyNum:string called "# in household"
  60.     ownRent:string called "Living Arrangements"
  61.     ownGun:string called "Gun Status"
  62.     }
  63.  
  64.  
  65. field class "mailClasses" |string.email| is "Email" ""
  66. field class "mailClasses" |string.email.internet| is "Internet" ""
  67. field class "mailClasses" |string.email.aol| is "America Online" ""
  68. field class "mailClasses" |string.email.compuserve| is "CompuServe" ""
  69. field class "mailClasses" |string.email.mcimail| is "MCI Mail" ""
  70. field class "mailClasses" |string.email.attmail| is "AT&T Mail" ""
  71. field class "mailClasses" |string.email.easylink| is "EasyLink" ""
  72. field class "mailClasses" |string.email.prodigy| is "Prodigy" ""
  73. field class "mailClasses" |string.email.genie| is "GEnie" ""
  74. field class "mailClasses" |string.email.delphi| is "Delphi" ""
  75. field class "mailClasses" |string.email.msn| is "Network" ""
  76. field class "mailClasses" |string.email.interchange| is "Interchange" ""
  77. field class "mailClasses" |string.email.radiomail| is "RadioMail" ""
  78.